<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from (select top 7 * from GameWiki where Types='超级管理员' order by ID desc) order by Hot desc"
rs.Open strSQL, dbconnection, adOpenDynamic, 3
Dim TextArray7(7)

for i = 0 to ubound(TextArray7) 
	if not rs.eof then
		TextArray7(i)="<A href=""wikivip\"&rs("Url")&".htm""><img src="""&rs("Pic")&""" border=""0"" width=""77"" height=""77""/></A>"
		rs.movenext
	else
		TextArray7(i)="&nbsp;"
	end if
next
set rs = nothing
strSQL = "select top 1 * from ProName where id=20"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, dbconnection, adOpenDynamic, 3
%>
<div class="TableMenuLeftDiv"></div>
<div class="TableMenuDiv3"><div class="TableMenuTextDiv88"><%=rs("Names")%></div></div>
<div class="TableMenuRightDiv"></div>
</div>
<div class="TablePicBottonDiv7">
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(0)%>
		</div>
	</div>
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(1)%>
		</div>
	</div>
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(2)%>
		</div>
	</div>
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(3)%>
		</div>
	</div>
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(4)%>
		</div>
	</div>
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(5)%>
		</div>
	</div>
	<div class="TablePicTopDiv7">
		<div class="TablePicDiv7">
			<%=TextArray7(6)%>
		</div>
	</div>
</div>
<%
	rs.close                                                                    
    set rs=nothing
 %>
